From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 19 Mar 2004 02:34:39 +0000 (+0000)
Subject: (display-time-string-forms): Add help-echo with date on time.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~23642
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=85d699bde9e597b9fa8fc59f7e6469f39419680c;p=emacs.git

(display-time-string-forms): Add help-echo with date on time.
---

diff --git a/lisp/time.el b/lisp/time.el
index ba1b66f8a72..a4c5f97ac98 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -173,9 +173,11 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'."
   '((if (and (not display-time-format) display-time-day-and-date)
 	(format-time-string "%a %b %e " now)
       "")
-    (format-time-string (or display-time-format
-			    (if display-time-24hr-format "%H:%M" "%-I:%M%p"))
-			now)
+    (propertize
+     (format-time-string (or display-time-format
+			     (if display-time-24hr-format "%H:%M" "%-I:%M%p"))
+			 now)
+     'help-echo (format-time-string "%s %b %e, %Y" now))
     load
     (if mail
 	;; Build the string every time to act on customization.